home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb40.zip / TESTFNT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-05-18  |  864b  |  30 lines
  1. Program testfnt;
  2. Var
  3.   key  :  char;
  4.   str80 : string[80];
  5.  
  6. Begin
  7.   writeln('Use functions keys.  F1 = RAM char. F2 = ROM char. F10 = Quit');
  8.   repeat
  9.     read(kbd,key);
  10.     if keypressed then
  11.       begin
  12.         read(kbd,key);
  13.         case key of
  14.         ';'  :  begin    {F1 = use ram}
  15.                   write(Lst,chr(27),chr(37),chr(1),chr(0));  {switch printer to RAM}
  16.                   writeln('Enter text: ');
  17.                   readln(str80);
  18.                   writeln(Lst,str80);
  19.                 end;
  20.         '<'  :  begin    {F2 = use rom}
  21.                   write(Lst,chr(27),chr(37),chr(0),chr(0));
  22.                   writeln('Enter text: ');
  23.                   readln(str80);
  24.                   writeln(Lst,str80);
  25.                 end;
  26.         end; {case}
  27.       end;
  28.     writeln('Press a function key');
  29.   until key = 'D';
  30. end.